home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / rts / init.scm < prev    next >
Text File  |  1995-10-13  |  505b  |  19 lines
  1. ; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees.  See file COPYING.
  2.  
  3.  
  4.  
  5. ; System entry and exit
  6.  
  7. ; Entry point from OS executive.  Procedures returned by USUAL-RESUMER
  8. ; are suitable for use as the second argument to WRITE-IMAGE.
  9.  
  10. (define (usual-resumer entry-point)
  11.   (lambda (resume-arg in out)
  12.     (initialize-dynamic-state!)
  13.     (with-initial-ports in out
  14.       (lambda ()
  15.     (initialize-exceptions!
  16.      (lambda ()
  17.        (initialize-interrupts!)
  18.        (entry-point (vector->list resume-arg))))))))
  19.